home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
AMIGA
/
AMICUS
/
AMICUS18.ADF
/
Logo
/
logo.5
< prev
next >
Wrap
Text File
|
1989-01-27
|
738b
|
45 lines
;
;this program was copied directly, with one minor change, from the
;Sept. 1986 issue of Byte magazine, P. 14. Due to Mr. Mark D. Widome.
;
to hilbert :order :size
penup
setpos [200 30] ;this is the only change, to adjust for screen size
setheading 180
pendown
curvright :order
end
to curvright :order
if :order =0 [stop]
left 90
curvleft :order-1
forward :size
right 90
curvright :order-1
forward :size
curvright :order-1
right 90
forward :size
curvleft :order-1
left 90
end
to curvleft :order
if :order = 0 [stop]
right 90
curvright :order-1
forward :size
left 90
curvleft :order-1
forward :size
curvleft :order-1
left 90
forward :size
curvright :order-1
right 90
end
to demo
cs pd hilbert 6 2
end